(smiley-region): Bind `inhibit-point-motion-hooks' to t, so that we

don't get stuck while trying to smilefy intangible text.

diff --git a/lisp/gnus/smiley-ems.el b/lisp/gnus/smiley-ems.el
index 4b54197c40e95f1535cf00fb895d7af30884b3f1..e3bc261bb962c6ce179bead82400b22a73c2357d 100644 (file)
--- a/lisp/gnus/smiley-ems.el
+++ b/lisp/gnus/smiley-ems.el
@@ -108,6 +108,7 @@ which smileys to operate on and which images to use for them."
       (smiley-update-cache))
     (save-excursion
       (let ((beg (or start (point-min)))
+           (inhibit-point-motion-hooks t)
            group overlay image)
        (dolist (entry smiley-cached-regexp-alist)
          (setq group (nth 1 entry)